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-- file DIDefs.Mesa 

-- last modified by Barbara, June 30, 1978 12:07 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [wordlength] , 
DebuggerDefs: FROM "debuggerdefs" USING [LA, SA], 
DILALRDefs: FROM "dilalrdefs" USING [ 

ActionEntry, LALRTableHandle, Productionlnfo, SymbolRecord] , 
SymbolTableDefs: FROM "symboUabledef s" USING [SymboUableBase] , 
SymDefs: FROM "symdefs" USING [ISEIndex, SEIndex]; 

DIDefs: DEFINITIONS SHARES DILALRDefs - 

BEGIN OPEN DILALRDefs; 

ParseHandle: TYPE « POINTER TO ParseObject; 

ParseObject: TYPE = RECORD [ 
qp: QueueProcessor, 
da: DescriptorAssigner]; 

QueueProcessor: TYPE « PROCEDURE [ql, top: CARDINAL, 
proc: PROCEDURE [esp: ESPointer], locals: BOOLEAN]; 

DescriptorAssigner: TYPE = PROCEDURE [ 
qd: DESCRIPTOR FOR ARRAY OF ActionEntry, 
vd: DESCRIPTOR FOR ARRAY OF UNSPECIFIED, 
hd: DESCRIPTOR FOR ARRAY OF ConstOrQual , 
Id: DESCRIPTOR FOR ARRAY OF CARDINAL, 
pd: DESCRIPTOR FOR ARRAY OF Productionlnfo]; 

ConstOrQual: TYPE = {num, Inum, char, sr, var, dot, deref, loophole, 
loopholetype, explist, interval}; 

-- Routines implemented by DIParser 

InputLoc: PROCEDURE RETURNS [CARDINAL]; 

Parse: PROCEDURE [string: STRING, table: LALRTableHandle, ph: ParseHandle, 

proc: PROCEDURE [esp: ESPointer], locals: BOOLEAN] 

RETURNS [complete: BOOLEAN]; 
ParseError: SIGNAL [errorLoc: CARDINAL]; 
SyntaxError: SIGNAL [errorLoc: CARDINAL]; 

-- Routines implemented by DIScanner 

Atom: PROCEDURE RETURNS [symbol: Symbol Record] ; 

Scanlnit: PROCEDURE [string: STRING, tablePtr: LALRTableHandle]; 

ScanReset: PROCEDURE RETURNS [BOOLEAN]; 

InvalidCharacter: SIGNAL [index: CARDINAL]; 

InvalidNumber: SIGNAL [index: CARDINAL]; 

-- Routines implemented by Dllnterpreter 

TwoParse: PROCEDURE RETURNS [ParseHandle]; 

--common data structures 

Maxindirections: CARDINAL = 7; 

EvalStackltem: TYPE = RECORD [ 
next: ESPointer, 

stbase; Symbo 1 Tab 1 eDe fs. Symbol Tab leB as e, 
sei: SymDefs . ISEIndex, 
tsei: SymDefs .SEIndex, 
desc: BOOLEAN. 
intN: BOOLEAN. 

indirection: [0. .Maxindirections], 
body: SELECT tag: * FROM 
there «> [ 

bitsize: CARDINAL. 

bi toff set: [0. .Al toDefs .wordlength) , 

addr: SELECT tag: ♦ FROM 

short => [shortAddr; DebuggerDefs .SA], 
long «> [longAddr: DebuggerDefs . LA] , 
ENDCASE], 
here «> [ 
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wordlength: CARDINAL, 
data: SELECT OVERLAID * FROM 
mw «> [ptr: POINTER], 
sw -> [value: UNSPECIFIED], 
ENDCASE], 
ENDCASE]; 

ESPointer: TYPE - POINTER TO EvalStackltem; 
hereESPointer: TYPE = POINTER TO here EvalStackltem; 
thereESPointer: TYPE «= POINTER TO there EvalStackltem; 

Typeltem: TYPE « RECORD [ 
next: TIPointer, 

stbase: Symbol Tab leDefs .Symbol Tab leBase, 
tsei: SymDefs.SEIndex, 
indirection: [0. .Maxlndirections]]; 

TIPointer: TYPE « POINTER TO Typeltem; 

predef inedType: TYPE = {integer, cardinal, character, boolean, 
string, unspecified, longinteger} ; 

Operator: TYPE » {null, plus, minus, times, div, mod, size}; 

END... 



